@强制输出
@输出名("随机视频")
类 随机视频 : 窗口

	@布局配置([[根布局=真,宽度=-1,高度=-1,背景颜色=-16777216]])
	变量 相对布局1 : 相对布局
	@布局配置([[父布局=相对布局1,宽度=-1,高度=-1]])
	变量 高级列表框1 : 高级列表框

	变量 数据集合:集合
	变量 适配器1:高级列表适配器 = 高级列表适配器(数据集合)
	变量 布局管理1:线性布局管理器
	变量 网络工具1:网络工具
	//变量 视频类型标题:文本集合={"甩裙系列","又纯又欲","黑白双煞","猫系女友","硬气卡点","微胖系列","安慕希系","帅哥系列","女仆系列","腹肌变装","白丝视频","黑丝视频","御姐系列","二次元系","擦玻璃系","蹲下变装","吊带系列","背影变装","火车摇系","完美身材","晴天推荐","你的欲梦","萝莉系列","光剑变装","动漫视频","余震系列","新纯系列","三真香系","原神系列","甜妹系列","漫画芋系","潇潇系列","玉足美腿","清纯系列","慢摇系列","萌娃系列","COS系列","周扬青系","周清欢系","安琪系列","清风皓月","杂鱼川系","琳铛系列","惠子系列","蛋儿系列","吧啦鲨系","Yume系列","Kiki系列","钰钰系列","小瑾系列","燕酱系列","桥本环菜","少萝系列","鹿婷系列","李逍遥系","空心柚七","菜狗系列","昭昭系列","桃桃系列","擦边系列","摇摇系列"}
	事件 随机视频:创建完毕()
		订阅事件()
		本对象.屏幕方向 = 1
		本对象.显示标题栏 =假
		本对象.状态栏字体黑色 = 假
		本对象.状态栏颜色 = 黑色
		本对象.导航栏颜色 = 黑色
		高级列表框1.分页模式(真)
		高级列表框1.置布局管理器(布局管理1)
		高级列表框1.置适配器(适配器1)
		取数据()
	结束 事件

	方法 取数据()
		循环(i, 0,10)
			网络工具1.取网页源码("https://api.kuleu.com/api/xjj?type=json")
		结束 循环
	结束 方法
	事件 网络工具1:取网页源码结束(结果 : 文本,内容 : 字节[],cookie : 文本)
		变量 视频结果:JSON对象=结果
		数据集合.添加成员(视频结果.取文本("video"))
		适配器1.置数据(数据集合)
		适配器1.更新项目()
		结束 事件

	事件 适配器1:关联视图(项目类型 : 整数) : 组件容器
		变量 布局:播放器布局
		事件 布局.视频播放器1:视频播放完成()
			布局.视频播放器1.重新播放()
		结束 事件
		/*
		事件 布局.视频播放器1:被触摸(来源事件 : 触摸事件) : 逻辑型
			返回 真
		结束 事件
		*/
		返回 布局
	结束 事件
	事件 适配器1:关联视图数据(项目类型 : 整数,容器 : 组件容器,索引 : 整数)
		变量 布局:播放器布局 = 容器
		布局.视频播放器1.置播放路径(数据集合[索引].到文本(),真)
	结束 事件
	事件 高级列表框1:滚动状态(状态 : 整数)
		如果 高级列表框1.是否到底()
			//弹出提示("最后一个")
			取数据()
		否则 高级列表框1.是否到顶()
			//弹出提示("已经是第一个")
		结束 如果
	结束 事件

	@虚拟方法
	方法 返回键被按下()
		变量 布局:播放器布局
		布局.视频播放器1.停止播放()
		父对象.返回键被按下()
	结束 方法
结束 类

类 播放器布局:组件容器

	@布局配置([[根布局=真,宽度=-1,高度=-1,背景颜色=-16777216]])
	变量 相对布局1 : 相对布局
	@布局配置([[父布局=相对布局1,宽度=-1,高度=-1]])
	变量 视频播放器1 : 视频播放器
结束 类